home *** CD-ROM | disk | FTP | other *** search
- /* $VER: 0.9, ©1994 BURGHARD Eric. */
- /* Help on GoldED.guide */
-
- options results
- if (left(address(), 6) ~= "GOLDED") then address 'GOLDED.1'
- 'LOCK CURRENT QUIET' /* lock GUI, gain access */
- if rc then exit
-
- if exists("ENV:OldFunc'") then do
- ok=open(readhandle,"ENV:OldFunc'","read")
- oldfunc=readln(readhandle)
- ok=close(readhandle)
- end
- else oldfunc=""
- 'REQUEST TITLE="Autodocs Help" BODY="Type searched name" BUTTON="Search|Cancel" STRING OLD="'oldfunc'" VAR WORD'
- if rc~==0 then do
- 'UNLOCK'
- exit
- end
-
- address command 'SetEnv OldFunc 'result''
-
- 'HELP TOPIC 'result''
-
- 'UNLOCK'
- exit
-